home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / tbbs / prgsourc.zip / HOMES.ZIP / PCOMP.PRG < prev    next >
Text File  |  1996-01-07  |  2KB  |  122 lines
  1. PROCEDURE pcomp          
  2.  
  3. SELECT c                                        && Realtor.DBF
  4.  
  5. PRIVATE cnt
  6. PRIVATE x
  7. PRIVATE y
  8. PRIVATE page
  9.  
  10. COUNT TO cnt 
  11. GOTO TOP
  12. DECLARE agnc[cnt]
  13. x = 1
  14. DO WHILE x < cnt       
  15.    agnc[x] = agency
  16.    x = x + 1
  17.    SKIP
  18. ENDDO
  19. agnc[x] = agency
  20. x = 1
  21. DO WHILE x < cnt             
  22.    comp = agnc[x]
  23.    dummy = aScan(agnc,comp,x+1,cnt)
  24.    IF dummy = 0
  25.       x = x + 1
  26.    ELSE   
  27.       dummy = aDel(agnc,x)
  28.       cnt = cnt - 1
  29.    ENDIF
  30. ENDDO
  31.  
  32. IF cnt > 15
  33.    page = 15
  34. ELSE
  35.    page = cnt
  36. ENDIF
  37.  
  38. SET COLOR TO GR+/R
  39. @ 21,0 CLEAR TO 23,79
  40. @ 21,5 SAY "Up/Dn Arrow "
  41. @ 22,5 SAY "<Enter> "
  42. SET COLOR TO W+/R
  43. @ 21,17 SAY "= Move within pick list"
  44. @ 22,13 SAY "= Select from pick list"
  45.  
  46. SET COLOR TO BG/BG
  47. @ 3,45 CLEAR TO page+4,74
  48. SET COLOR TO N/BG
  49. @ 3,45 TO page+4,74
  50.  
  51. x = 1
  52. y = 4
  53. DO WHILE x <= cnt .AND. y <= 18
  54.    @ y,47 SAY agnc[x]
  55.    x = x + 1
  56.    y = y + 1
  57. ENDDO
  58.  
  59. SET COLOR TO GR+/BG
  60. @ 4,47 SAY agnc[1]
  61.  
  62. x = 1
  63. y = 4
  64. DO WHILE LastKey() # 27
  65.    key = InKey(0)
  66.    DO CASE
  67.       CASE LastKey() = 5                         && <Up Arrow>
  68.            IF x = 1
  69.               LOOP
  70.            ENDIF
  71.            SET COLOR TO N/BG
  72.            IF y = 4
  73.               x = x - 1
  74.               DO WHILE y <= 18
  75.                 @ y,47 SAY agnc[x]
  76.                 x = x + 1
  77.                 y = y + 1
  78.               ENDDO
  79.               x = x - page
  80.               y = 4
  81.            ELSE
  82.               @ y,47 SAY agnc[x]
  83.               x = x - 1
  84.               y = y - 1
  85.            ENDIF
  86.            SET COLOR TO GR+/BG
  87.            @ y,47 SAY agnc[x]
  88.            LOOP
  89.            
  90.       CASE LastKey() = 13                        && <Enter>
  91.            comp = agnc[x]
  92.            DO cls WITH 3,45,page+4,74
  93.            EXIT
  94.       
  95.       CASE LastKey() = 24                        && <Dn Arrow>
  96.            IF x = cnt
  97.               LOOP
  98.            ENDIF
  99.            SET COLOR TO N/BG
  100.            IF y = 18
  101.               x = x - page + 2
  102.               y = 4
  103.               DO WHILE x < cnt .AND. y < 18
  104.                 @ y,47 SAY agnc[x]
  105.                 x = x + 1
  106.                 y = y + 1
  107.               ENDDO
  108.            ELSE
  109.               @ y,47 SAY agnc[x]
  110.               x = x + 1
  111.               y = y + 1
  112.            ENDIF
  113.            SET COLOR TO GR+/BG
  114.            @ y,47 SAY agnc[x]
  115.            LOOP
  116.       
  117.         ENDCASE
  118. ENDDO
  119. RELEASE agnc
  120. RETURN
  121.  
  122.